home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Spiele / GEMSPIEL / SOLITARE.11A / SOURCE / SOLITR.RSH < prev   
Encoding:
Text File  |  1999-12-13  |  8.6 KB  |  218 lines
  1. /* GEM Resource C Source */
  2.  
  3. #include <portab.h>
  4. #include <aes.h>
  5. #include "SOLITR.H"
  6.  
  7. #if !defined(WHITEBAK)
  8. #define WHITEBAK    0x0040
  9. #endif
  10. #if !defined(DRAW3D)
  11. #define DRAW3D      0x0080
  12. #endif
  13.  
  14. #define FLAGS9  0x0200
  15. #define FLAGS10 0x0400
  16. #define FLAGS11 0x0800
  17. #define FLAGS12 0x1000
  18. #define FLAGS13 0x2000
  19. #define FLAGS14 0x4000
  20. #define FLAGS15 0x8000
  21. #define STATE8  0x0100
  22. #define STATE9  0x0200
  23. #define STATE10 0x0400
  24. #define STATE11 0x0800
  25. #define STATE12 0x1000
  26. #define STATE13 0x2000
  27. #define STATE14 0x4000
  28. #define STATE15 0x8000
  29.  
  30. TEDINFO rs_tedinfo[] =
  31. { "click anywhere!",
  32.   "\0",
  33.   "\0",
  34.   SMALL, 0, TE_CNTR , 0x1100, 0, -1, 16, 1
  35. };
  36.  
  37. WORD RSBB0DATA[] =
  38. { 0x0000, 0x7FFE, 0x0001, 0x8001, 
  39.   0x000E, 0xA401, 0x0030, 0xAA01, 
  40.   0x0044, 0xAA01, 0x0044, 0xA401, 
  41.   0x00A2, 0x8001, 0x012A, 0x9819, 
  42.   0x0224, 0x9819, 0x0C10, 0x8181, 
  43.   0x1990, 0x8181, 0x1250, 0x9819, 
  44.   0x1268, 0x9819, 0x2988, 0x8001, 
  45.   0x2408, 0x8001, 0x2204, 0x9819, 
  46.   0x4104, 0x9819, 0x4084, 0x8181, 
  47.   0x5042, 0x8181, 0x8A22, 0x9819, 
  48.   0xBC12, 0x9819, 0x8609, 0x8001, 
  49.   0x7005, 0x8001, 0x4C03, 0x7FFE, 
  50.   0x4381, 0xEA80, 0x4070, 0x9280, 
  51.   0x4E0E, 0x6480, 0x5401, 0xC480, 
  52.   0x4E00, 0x3880, 0x4000, 0x0080, 
  53.   0x3FFF, 0xFF00
  54. };
  55.  
  56. BITBLK rs_bitblk[] =
  57. { RSBB0DATA,   4,  31,   0,   0, 0x0001
  58. };
  59.  
  60. OBJECT rs_object[] =
  61. { 
  62.   /******** Tree 0 MENUE ****************************************************/
  63.         -1,        1,        7, G_IBOX    ,   /* Object 0  */
  64.   NONE, NORMAL, (LONG)0x00000000L,
  65.   0x0000, 0x0000, 0x0050, 0x0019,
  66.          7,        2,        2, G_BOX     ,   /* Object 1  */
  67.   NONE, NORMAL, (LONG)0x00001100L,
  68.   0x0000, 0x0000, 0x0050, 0x0201,
  69.          1, MT_DESK , MT_OPTS , G_IBOX    ,   /* Object 2  */
  70.   NONE, NORMAL, (LONG)0x00000000L,
  71.   0x0002, 0x0000, 0x0027, 0x0301,
  72.   MT_DATEI,       -1,       -1, G_TITLE   ,   /* Object 3 MT_DESK */
  73.   NONE, NORMAL, (LONG)" SOLITARE",
  74.   0x0000, 0x0000, 0x000A, 0x0301,
  75.   MT_EDIT ,       -1,       -1, G_TITLE   ,   /* Object 4 MT_DATEI */
  76.   NONE, NORMAL, (LONG)" Datei",
  77.   0x000A, 0x0000, 0x0007, 0x0301,
  78.   MT_OPTS ,       -1,       -1, G_TITLE   ,   /* Object 5 MT_EDIT */
  79.   NONE, NORMAL, (LONG)" Bearbeiten",
  80.   0x0011, 0x0000, 0x000C, 0x0301,
  81.          2,       -1,       -1, G_TITLE   ,   /* Object 6 MT_OPTS */
  82.   NONE, NORMAL, (LONG)" Optionen",
  83.   0x001D, 0x0000, 0x000A, 0x0301,
  84.          0,        8,       28, G_IBOX    ,   /* Object 7  */
  85.   NONE, NORMAL, (LONG)0x00000000L,
  86.   0x0000, 0x0301, 0x0050, 0x0017,
  87.         17, M_PRGINFO,       16, G_BOX     ,   /* Object 8  */
  88.   NONE, NORMAL, (LONG)0x00FF1100L,
  89.   0x0002, 0x0000, 0x0014, 0x0008,
  90.         10,       -1,       -1, G_STRING  ,   /* Object 9 M_PRGINFO */
  91.   NONE, NORMAL, (LONG)"  \201ber Solitare  ^I ",
  92.   0x0000, 0x0000, 0x0014, 0x0001,
  93.         11,       -1,       -1, G_STRING  ,   /* Object 10  */
  94.   NONE, DISABLED, (LONG)"--------------------",
  95.   0x0000, 0x0001, 0x0014, 0x0001,
  96.         12,       -1,       -1, G_STRING  ,   /* Object 11  */
  97.   NONE, NORMAL, (LONG)"  Desk Accessory 1 ",
  98.   0x0000, 0x0002, 0x0014, 0x0001,
  99.         13,       -1,       -1, G_STRING  ,   /* Object 12  */
  100.   NONE, NORMAL, (LONG)"  Desk Accessory 2 ",
  101.   0x0000, 0x0003, 0x0014, 0x0001,
  102.         14,       -1,       -1, G_STRING  ,   /* Object 13  */
  103.   NONE, NORMAL, (LONG)"  Desk Accessory 3 ",
  104.   0x0000, 0x0004, 0x0014, 0x0001,
  105.         15,       -1,       -1, G_STRING  ,   /* Object 14  */
  106.   NONE, NORMAL, (LONG)"  Desk Accessory 4 ",
  107.   0x0000, 0x0005, 0x0014, 0x0001,
  108.         16,       -1,       -1, G_STRING  ,   /* Object 15  */
  109.   NONE, NORMAL, (LONG)"  Desk Accessory 5 ",
  110.   0x0000, 0x0006, 0x0014, 0x0001,
  111.          8,       -1,       -1, G_STRING  ,   /* Object 16  */
  112.   NONE, NORMAL, (LONG)"  Desk Accessory 6 ",
  113.   0x0000, 0x0007, 0x0014, 0x0001,
  114.         21, M_NEU   , M_QUIT  , G_BOX     ,   /* Object 17  */
  115.   NONE, NORMAL, (LONG)0x00FF1100L,
  116.   0x000C, 0x0000, 0x0012, 0x0003,
  117.         19,       -1,       -1, G_STRING  ,   /* Object 18 M_NEU */
  118.   NONE, NORMAL, (LONG)"  neues Spiel  ^N ",
  119.   0x0000, 0x0000, 0x0012, 0x0001,
  120.   M_QUIT  ,       -1,       -1, G_STRING  ,   /* Object 19  */
  121.   NONE, DISABLED, (LONG)"------------------",
  122.   0x0000, 0x0001, 0x0012, 0x0001,
  123.         17,       -1,       -1, G_STRING  ,   /* Object 20 M_QUIT */
  124.   NONE, NORMAL, (LONG)"  Ende         ^Q ",
  125.   0x0000, 0x0002, 0x0012, 0x0001,
  126.         28, M_UNDO  , M_MISCHEN2, G_BOX     ,   /* Object 21  */
  127.   NONE, NORMAL, (LONG)0x00FF1000L,
  128.   0x0013, 0x0000, 0x0016, 0x0006,
  129.         23,       -1,       -1, G_STRING  ,   /* Object 22 M_UNDO */
  130.   NONE, NORMAL, (LONG)"  Zug zur\201ck     UNDO ",
  131.   0x0000, 0x0000, 0x0016, 0x0001,
  132.   M_DRAW  ,       -1,       -1, G_STRING  ,   /* Object 23  */
  133.   NONE, DISABLED, (LONG)"----------------------",
  134.   0x0000, 0x0001, 0x0016, 0x0001,
  135.         25,       -1,       -1, G_STRING  ,   /* Object 24 M_DRAW */
  136.   NONE, NORMAL, (LONG)"  herausziehen     ^X ",
  137.   0x0000, 0x0002, 0x0016, 0x0001,
  138.   M_MISCHEN,       -1,       -1, G_STRING  ,   /* Object 25  */
  139.   NONE, DISABLED, (LONG)"----------------------",
  140.   0x0000, 0x0003, 0x0016, 0x0001,
  141.   M_MISCHEN2,       -1,       -1, G_STRING  ,   /* Object 26 M_MISCHEN */
  142.   NONE, NORMAL, (LONG)"  erstes Mischen   ^1 ",
  143.   0x0000, 0x0004, 0x0016, 0x0001,
  144.         21,       -1,       -1, G_STRING  ,   /* Object 27 M_MISCHEN2 */
  145.   NONE, NORMAL, (LONG)"  zweites Mischen  ^2 ",
  146.   0x0000, 0x0005, 0x0016, 0x0001,
  147.          7, M_CLASSIC, M_HELP  , G_BOX     ,   /* Object 28  */
  148.   NONE, NORMAL, (LONG)0x00FF1000L,
  149.   0x001F, 0x0000, 0x0010, 0x0003,
  150.   M_PING  ,       -1,       -1, G_STRING  ,   /* Object 29 M_CLASSIC */
  151.   NONE, NORMAL, (LONG)"  klassisch  ^K ",
  152.   0x0000, 0x0000, 0x0010, 0x0001,
  153.   M_HELP  ,       -1,       -1, G_STRING  ,   /* Object 30 M_PING */
  154.   NONE, NORMAL, (LONG)"  Ping       ^P ",
  155.   0x0000, 0x0001, 0x0010, 0x0001,
  156.         28,       -1,       -1, G_STRING  ,   /* Object 31 M_HELP */
  157.   LASTOB, CHECKED, (LONG)"  Hilfen     ^H ",
  158.   0x0000, 0x0002, 0x0010, 0x0001,
  159.   
  160.   /******** Tree 1 INFOBOX ****************************************************/
  161.         -1,        1,       13, G_BOX     ,   /* Object 0  */
  162.   NONE, OUTLINED, (LONG)0x00021100L,
  163.   0x0000, 0x0000, 0x0030, 0x0011,
  164.          2,       -1,       -1, G_STRING  ,   /* Object 1  */
  165.   NONE, NORMAL, (LONG)"Solitare  V1.1  28.3.1995",
  166.   0x000C, 0x0001, 0x0019, 0x0001,
  167.          4, I_COMPDATE, I_COMPDATE, G_STRING  ,   /* Object 2  */
  168.   NONE, NORMAL, (LONG)"(compiled            )",
  169.   0x000E, 0x0002, 0x0016, 0x0001,
  170.          2,       -1,       -1, G_STRING  ,   /* Object 3 I_COMPDATE */
  171.   NONE, NORMAL, (LONG)"\0",
  172.   0x000A, 0x0000, 0x0001, 0x0001,
  173.          5,       -1,       -1, G_STRING  ,   /* Object 4  */
  174.   NONE, NORMAL, (LONG)"yet another card game",
  175.   0x000E, 0x0003, 0x0015, 0x0002,
  176.          6,       -1,       -1, G_STRING  ,   /* Object 5  */
  177.   NONE, NORMAL, (LONG)"written by Th. Morus Walter",
  178.   0x000B, 0x0005, 0x001B, 0x0002,
  179.          7,       -1,       -1, G_STRING  ,   /* Object 6  */
  180.   NONE, NORMAL, (LONG)"(c) 1994 by Never Ready Software",
  181.   0x0008, 0x0006, 0x0020, 0x0002,
  182.          8,       -1,       -1, G_STRING  ,   /* Object 7  */
  183.   NONE, NORMAL, (LONG)"this program is FAIRWARE!",
  184.   0x000C, 0x0008, 0x0019, 0x0002,
  185.          9,       -1,       -1, G_STRING  ,   /* Object 8  */
  186.   NONE, NORMAL, (LONG)"thanx to: Dirk Haun for Yukon",
  187.   0x000A, 0x000A, 0x001D, 0x0002,
  188.         10,       -1,       -1, G_STRING  ,   /* Object 9  */
  189.   NONE, NORMAL, (LONG)"Dirk Hagedorn and Martin Heise for the cards",
  190.   0x0002, 0x000B, 0x002C, 0x0002,
  191.         11,       -1,       -1, G_STRING  ,   /* Object 10  */
  192.   NONE, NORMAL, (LONG)"Solitare was written in C",
  193.   0x000C, 0x000D, 0x0019, 0x0002,
  194.         12,       -1,       -1, G_STRING  ,   /* Object 11  */
  195.   NONE, NORMAL, (LONG)"and compiled with PureC 1.0",
  196.   0x000B, 0x000E, 0x001B, 0x0002,
  197.         13,       -1,       -1, G_TEXT    ,   /* Object 12  */
  198.   NONE, NORMAL, (LONG)&rs_tedinfo[0],
  199.   0x000F, 0x0010, 0x0013, 0x0001,
  200.          0,       -1,       -1, G_IBOX    ,   /* Object 13  */
  201.   SELECTABLE|DEFAULT|EXIT|LASTOB, NORMAL, (LONG)0x00001100L,
  202.   0x0000, 0x0000, 0x0030, 0x0011,
  203.   
  204.   /******** Tree 2 ICONIFIED ****************************************************/
  205.         -1, ICONNR  , ICONNR  , G_BOX     ,   /* Object 0  */
  206.   NONE, NORMAL, (LONG)0x00001180L,
  207.   0x0000, 0x0000, 0x001E, 0x000E,
  208.          0,       -1,       -1, G_IMAGE   ,   /* Object 1 ICONNR */
  209.   LASTOB, NORMAL, (LONG)&rs_bitblk[0],
  210.   0x0003, 0x0001, 0x0004, 0x0F01
  211. };
  212.  
  213. OBJECT *rs_trindex[] =
  214. { &rs_object[0],   /* Tree  0 MENUE    */
  215.   &rs_object[32],   /* Tree  1 INFOBOX  */
  216.   &rs_object[46]    /* Tree  2 ICONIFIED */
  217. };
  218.